(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1483,         56]
NotebookOptionsPosition[      1168,         40]
NotebookOutlinePosition[      1447,         54]
CellTagsIndexPosition[      1404,         51]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
To run this file, select all the cells (control-A / cmd-A) and compile \
(shift-enter). Make sure that OurFunctions.nb is in the same directory as \
this file; otherwise, replace the argument of \
\"NotebookEvaluate[\"OurFunctions.nb\"]\" with a path to that file (e.g. \
\"NotebookEvaluate[\"/Users/zstier/Dropbox/AllREUstuff/OurFunctions.nb\"]\").\
\
\>", "Text"],

Cell["NotebookEvaluate[\"OurFunctions.nb\"]", "Input"],

Cell["\<\
coords=ConvertOtherQF[1]/@Coords1[13];
MatrixForm[coords]\
\>", "Input"],

Cell["MatrixForm[Gram[coords,13-1]]", "Input"],

Cell["Coxeter[coords,13-1]", "Input"]
},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 28, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 375, 7, 70, "Text"],
Cell[936, 29, 54, 0, 70, "Input"],
Cell[993, 31, 82, 3, 70, "Input"],
Cell[1078, 36, 46, 0, 70, "Input"],
Cell[1127, 38, 37, 0, 70, "Input"]
}
]
*)

(* End of internal cache information *)